Top 10k strings from Personal Banking System (1982)(Micromega)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
9 DRAGON S
9 BINATONE S
9 BBC S
4 x<g)-g*(x=f);x
4 tt=tt+a(r,g)
4 pa,v+v;" .00";
4 j,g;"A/C ";n$;
4 a$(i,k)+yy*
4 ZX SALES S
4 BINATONE R
4 (x*yy)-g*(
3 w)=a$(x+g,g
3 pa,w+v;"0.00";
3 k,g;"A/C ";n$;
3 f,f;"Enter Selection (1
3 a(x,g)=a(x+g,g):
3 a(i,h)=a(i,g)+a(i-g,h)
3 a$(r,k)+yy*
3 a$(r,j)<u);
3 a$(r,j);m$(
3 a$(i,j)=" "
3 a$(i,h)=" "
3 a$(i,h));" ";
3 VIC 20 S
3 DRAGON R
3 BBC R
3 (a(r,g)*yy)-g*(
3 (a(i,g)*yy);a(i,g)
2 x<g)+g*(x=f);" .00";
2 v,f;" ";
2 t+h,w-g;"DUE ";
2 r$(i,k)+yy*
2 r$(i,h));" ";
2 q,f;"Rewind tape, swap tape leads press play on cassette recorder,then type ENTER to verify"
2 pa,w+g;" ";
2 n,w+g;"monthly"
2 n,v+v;" .00";
2 n,h;" ";a$(i,t
2 k,g;"A/C ";n$
2 j*t,w+v;"0.00";
2 j*t,h*w-g-
2 h*u,f;b$;b$;
2 h*u,f;b$;b$
2 f,f;"Is input correct ? (Y/N)";
2 f,f;"Enter item number for correction";
2 f,f;"Disallowed entry - try again";
2 a(r,g)<g)-g*(a(r,g)=f);a(r,g)
2 a(i,h)=a(i,g)
2 a$(r,g);" ";yy*yy*
2 a$(i,j)=q$(j):
2 a$(i,j);" ";
2 a$(i,h));" (";
2 a$(i,g);")"
2 (x*yy)+g*(
2 (tt*yy)-g*(
2 (a(i,h)*yy+g/h)/yy
2 "8NCASH S
1 zz-u+yy*(m=j
1 z$=r$(i,h):
1 z$=a$(i,h)
1 x$="000000"
1 w-g,h;"6 - Entry Search";
1 w-g,g;"5 - Master Menu"
1 w-g,g;"4 - Reconciliation Menu"
1 w,u;;"Statement File Full."
1 w,k;"4 - Master Menu"
1 w,k;"4 - Amount";
1 w,k;"3 - Reconciliation Menu"
1 w,k;"3 - Master Menu"
1 w,g;"4 - Delete Standing Order";
1 w,f;"Enter page number -";
1 w,f;"Enter cheque number.";
1 w,f;"Enter back value date-","(EG 5SEP1981)"
1 w,f;" ";
1 w+j,h;"8 - Save/Load Datafile"
1 w+h,f;"Enter line number -";
1 w+g,h;"7 - Set up a New File ";
1 w+g,h*w-g-
1 w+g,g+v+w;".00";
1 w+g,f;"(six digits or 0 for credit)":
1 w)=r$(x+g,g
1 w)=a$(r-g,g
1 w)=a$(r+z,t
1 w)=a$(i-g,t
1 w)="BAL.BT/FWD"
1 v,k;"2 - Other Items";
1 v,h;"THE PERSONAL BANKING SYSTEM"
1 v,g;"3 - List Unmatched PBS Items";
1 v,f;b$;b$;b$;b$;b$;b$;b$;b$;b$;b$;
1 v,f;"PBS Item No.";s
1 v,f;"Line number ";c;" selected";
1 v,f;"Enter date. ";
1 v,f;"Enter Date.";b$;
1 v+g,j*t;a$(i,t
1 v+g,h;"5 - Reconciliation"
1 v+g,g;"4 - Display Similar Items";
1 u-h,f;"Enter YEAR (EG 1982)"
1 u-g,h;"3 - Correction/Back Value";
1 u-g,g;"2 - List Uncleared Cheques";
1 u-g,g;"2 - Input Bank Statement Items";
1 u,w-g;"Freq.= ";
1 u,k;"2 - Cheque number";
1 u,g;"2 - Addition to S/O File";
1 u,f;"Type ""YES"" to delete line ";c:
1 u,f;"Lines displayed - ";b;" to ";e;
1 u,f;"Lines displayed ";b;" to ";e;
1 u,f;"Item Number ";rl;" Displayed"
1 u+u,q;"amount.";
1 u+u,f;"Enter due date";
1 u+u,f;"Enter amount.":
1 u+u,f;" ":
1 u+j,f;"(eg ""25SEP"")."
1 u+j,f;"(EG ""25SEP82"")"
1 u+g,w-g;"Pymts.= ";
1 u+g,h;"4 - Standing Orders";
1 u+g,g;"3 - Corrections";
1 tt<g)-g*(tt=f);tt
1 tt<g)-G*(tt=f);tt
1 t,k;"1 - Items by date";
1 t,h;"2 - Input Data";
1 t,g;"1 - Reconciliation Statement";
1 t,g;"1 - Display Standing Order File";
1 t,f;"To proceed with this selection will cause all your previoustransactions to be overwritten. If data has been SAVED then type""YES"" to continue, otherwise, press ENTER for menu."
1 t+v,t;"- Date not found -"
1 t+v,q;"Amount.";
1 t+v,f;b$;b$;b$:
1 t+v,f;"Enter Amount.":
1 t+v,f;" ";
1 t+u,u+v;r$(i,t
1 t+u,f;"Enter Details. ":
1 t+u,f;" ";
1 t+t,w;"posted "
1 t+t,w;"Being Posted "
1 t+t,w;"- none due "
1 t+t,f;"Standing Orders - searching file"
1 t+h,f;"S/O no ";i-z;b$;b$;
1 t+g,u+v;y;
1 t+g,k;"1 - Cheques";
1 t+g,f;" "
1 r(x,g)=r(x+g,g):
1 r(r,g)=a(s,g)
1 r(i,g)=-r(i,g)
1 r$(r,k)+yy*
1 r$(r,j)=" "
1 r$(i,j)=q$(j):
1 r$(i,j)=" "
1 r$(i,j);" ";m$(
1 r$(i,h)=q$(h)
1 r$(i,g)=r$(i-g,g)
1 q;"is this correct ? (Y/N)";
1 q,j;" or ""D"" for Full Details"
1 q,g;"1 - List Unmatched Bank Items";
1 q,f;"The suggested sizes are in the range of between 10 and 30 pages";b$;"Remember that a high number of pages will tend to slow down thecomputer."
1 q$(j)=a$(i-g,j):
1 q$(j)=a$(i,j)
1 q$(j)<a$(x,j)
1 q$(j);" monthly":
1 q$(j);" ";m$(
1 q$(h)=a$(i-g,h)
1 q$(h)=a$(i,h)
1 q$(h)+u^k*d
1 pbs @m
1 pa,w;" .00";
1 pa,w-g;m$(
1 pa,w-g;"mthly.";
1 pa,v;a$(r,t
1 pa,u+v;a$(r,t
1 pa,q;r$(i,t
1 pa,q;a$(i,t
1 pa,k;yy*yy*
1 n,q;"W E L C O M E T O";
1 n,q;"Set up a new file.";
1 n,h;"1 - Display Bank Account";
1 n+u,u+u;b$;
1 n+u,f;"Enter Cheque Number.(6 Digits)"
1 n+u,f;" ";
1 l=l+g*(l<z):
1 l=l+g*(l<z)
1 k,t;"Save Datafile":
1 k,t;"Load Datafile":
1 k,n;"Verify saved Program";
1 k,n;"Verify saved Datafile";
1 k,k;"1 - Corrections";
1 k,f;"Enter ACCOUNT NAME -":
1 k,f;" ";
1 k+k,k;"2 - Back Valued Entry";
1 k+k,k;"1 - Save Datafile";
1 j,g;"Enter ""C"" to Display Chq Nos.";
1 j,g;"A/C ";n$
1 j,f;"Statement Item No.";r:
1 j,f;"Details: ";x$:
1 j,f;"Date: ";z$:
1 j,f;"Cheque number: ";x:
1 j,f;"Amount: ";amt:
1 j+w,k;"5 - Master menu"
1 j+w,g;"5 - Master Menu"
1 j*t,v;"Subtotal ";
1 j*t,v;" Total ";
1 j*t,n;"Matching Item Found"
1 j*t,k;"Matching Item NOT Found"
1 j*t,f;"Selection out of range":
1 j*t,f;"Enter number of payments ":
1 j*t,f;"Enter details."
1 j*t,f;"Enter amount."
1 j*t,f;"Balances are being adjusted"
1 j*t,f;"(eg 9SEP
1 j*k,k;"3 - Deletions";
1 j*k,k;"2 - Load Datafile";
1 i=c+g*(a=h)
1 h,f;"SO-Details- Due Date- No.-Amount"
1 h,f;"DATE DETAILS DR/CR BALANCE":
1 h+w,u+v;a$(i,t
1 h+w,f;"Enter details.":
1 h+w,f;" ";
1 h*u,f;"Enter frequency (eg quarterly=3 6 monthly=6 annual=0)"
1 g;"** CORRECTION TO S/O ON FILE ** "
1 g;" ** ADDITION TO S/O FILE ** "
1 g;" ** CORRECTION OF ENTRY ** ";
1 g;" ** BACK VALUED ENTRY ** "
1 g;" ** Standing Orders ** ";
1 g;" ** DELETIONS ** "
1 g+v,k;"3 - Details";
1 g+v,g;"3 - Correction to S/O on File";
1 f,w+v;"P.";p;
1 f,f;y;" A/C ";n$;
1 f,f;"Type ""YES"" to delete S/O ";(c);" ";
1 f,f;"Type ""YES"" to Delete Line ";(cl);x$:
1 f,f;"Select 1 To Correct Bank Item, or 2 For PBS Item ";
1 f,f;"Press N to continue search or, P to print,C for correction.";
1 f,f;"Press N For Next Item,M For MenuR If Items Relate,C To Correct";
1 f,f;"Press M for menu/I to input ";
1 f,f;"Press - ""N"" for Next Page, ""R"" to Reselect Page Number, ""M"" for Menu,or ""P"" to Print";
1 f,f;"Press ""N"" For Next Page, ""S"" to Stop or ""P""
1 f,f;"Press ""C"" To Enter Cheque Items ""O"" For Other Items,""M"" For Menu";
1 f,f;"Is Input Correct ? (Y/N)";
1 f,f;"Have you any further amendments to make ? (Y/N)";
1 f,f;"Enter selection (1 to 5)";
1 f,f;"Enter no.of pages -";
1 f,f;"Enter no.of STANDING ORDERS-";
1 f,f;"Enter new account name (less than 17 characters)";
1 f,f;"Enter item number of the","Standing Order to be corrected";
1 f,f;"Enter item number of Standing Order to be deleted ";
1 f,f;"Enter file name, type ENTER, press PLAY";
1 f,f;"Enter details - ";
1 f,f;"Enter date (eg 9AUG82 )";
1 f,f;"Enter cheque number (six digits)";
1 f,f;"Enter amount - ";
1 f,f;"Enter Selection (1 to 8) ";
1 f,f;"Enter Selection (1 to 5)";
1 f,f;"Enter Page Number - ";
1 f,f;"Enter Item No. For Correction orDeletion Between 1 & 16(maximum)";
1 f,f;"Enter ""C"" For Correction or ""D"" For Deletion ";
1 f,f;"Do you wish to retain existing Standing Order file ? (Y/N)";
1 f,f;"Do you wish to amend file size ?presently 10 pages,16 lines(Y/N)";
1 f,f;"Do you want to select any further pages ? (Y/N) ";
1 f,f;"Any further corrections ? (Y/N)";
1 f,f;"Any further S/O to input ? (Y/N)";
1 f,f;"Another search?(Y/N)/ P to printEnter C to correct an item";
1 f,f;"""C"" to Continue/ ""P"" to Print";
1 f,f;" Enter Selection (1 to 4)";
1 f,f;" Enter Selection (1 to 3)";
1 f,f;" ** UNMATCHED BANK ITEMS ** ";u$;b$;
1 ds=d3+yy*sm*(dr=f)
1 ds+y1*ww>d4
1 ds+y1*ww<d1
1 dm=dm+x+g:
1 dm=a(z,h):
1 d1<ds+y1*ww
1 d1<d3+y1*ww
1 c=cl+(p-g)*w
1 bL6CASH S
1 b=w*p-w+g:
1 amt=yy*yy:
1 a(z,h)=dm:
1 a(z,g)=a(i,g)
1 a(r,g)=a(r-g,g):
1 a(r,g)<g)-g*(a(r,g)=f);
1 a(i,g)=a(z,g)
1 a(i,g)=a(r+z,g)
1 a(i,g)=-a(i,g)
1 a(i+g,g)=a(i,g):
1 a$(z,k)+yy*
1 a$(z,j)=q$(j):
1 a$(z,h)=q$(h):
1 a$(w*p-w+g,j)=" "
1 a$(r,g);" ";a$(r,t
1 a$(r+z,k)=f
1 a$(r+z,k)=
1 a$(r+z,k)-g)
1 a$(r+z,h)=" "
1 a$(r+z,h)=
1 a$(r+z,h)-(h*w)*(a$(r+z,h)=" ")
1 a$(r+z,h)+
1 a$(i-g,h)=v
1 a$(i-g,h)+
1 a$(i-g,g)+y2)
1 a$(i-g,g))*ww
1 a$(i,j)=a$(r+z,j)
1 a$(i,j)=a$(i-g,j)
1 a$(i,j);" ";m$(
1 a$(i,h)=q$(h):
1 a$(i,h)=q$(h)
1 a$(i,h)=a$(i-g,h)
1 a$(i,h));"(";
1 a$(i,g)=a$(i-g,g)
1 a$(i,g);")";
1 a$(i,g)+g)
1 a$(i+g,j)=a$(i,j):
1 a$(i+g,h)=a$(i,h):
1 a$(i+g,g)=a$(i,g)
1 a$(g,u)="."
1 a$(c,k)+yy*
1 X$="000000":
1 WA+CASH S
1 VIC 20 R
1 U+U,U;"OK, Hold on."
1 Print ";x$
1 PERSONAL BANKING SYSTEM
1 PBS SALES
1 JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC
1 HM TAXES S
1 Enter D for debit/ C for credit
1 DATE DETAILS CHQ.NO. AMOUNT
1 CLIVE SINCLAIR X
1 CASH S
1 BAL.BT/FWDR
1 ================================f
1 9 for 9th monthly)":
1 /YCASH
1 -CYCASH S
1 -CCASH S
1 ** PBS- DISPLAY SIMILAR ITEMS **O
1 (x/w)+g*(x
1 (qr-v*(qr>v))
1 (d1/yy)+s-y1*v
1 (a$(x,g))+
1 (a$(r+z,j))=" "
1 (a$(c,h))+
1 (a$(c,g))+yy*
1 "Cheque number ";yy*yy*
1 "8CASH R
1 "6000"+m2*yy
1 "5600"+yy*(m3=
1 "5450"+u*(x$="R")+h*u*(x$="M")+j*u*(x$="C")
1 "5330"+u*(x$="C")+j*u*(x$="D")
1 "5266"+(g)*(mr=j)
1 "5150+20*(md
1 "5000+yy*mr"
1 "4e3+m1*yy*h"
1 "4e3"+(yy*h)*(i=z+v
1 "4750"+n*u*(m1=h)
1 "4340"+(u*h)*(i=z+v
1 "3300"+k*yy*(a=h)
1 "2660"+(u+n)*(m=j
1 "2200"+n*u*(a=g)+t*u*(a=h)+t*yy*(a=j)
1 "160"*(m=j
1 "130"*(x$="R")+(q*yy)*(x$="P")
1 "1015"*(x$="Y")
1 "** PBS- UNMATCHED OTHER ITEMS **"
1 " ** PBS - UNCLEARED CHEQUES ** "
1 " ";a$(i,t
1 w+h,f;"Searching for date in file"
1 J P Gibbons Nov 1982
1 ** PERSONAL BANKING SYSTEM ** m
1 ** PBS BANK RECONCILIATION **
1 & BANK RECONCILIATION
1 SPECTRUM VERSION 3A
1 VIC 20
1 HM TAXES
1 DRAGON
1 BINATONE N
1 BBC
1 ** PBS - ENTRY SEARCH **
1 OK - SEARCHING FILE
1 P
1 n
1
1